home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / 64 keypad (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  63 lines
  1. 0 ifmmthen60000
  2. 5 gosub60100:clr
  3. 10 print"[147]         64 mode numeric keypad"
  4. 20 print"               by ian adam"
  5. 30 print"     this program enables the c128's"
  6. 32 print"numeric keypad when in 64 mode. this"
  7. 34 print"program is to be run on a commodore 128"
  8. 36 print"only! commodore 64 users should not"
  9. 38 print"continue with this program."
  10. 40 print"do you wish to continue? (y/n)"
  11. 42 a=peek(203):ifa<>25anda<>39then42
  12. 44 ifa=39then60000
  13. 100 fori=50944to51198
  14. 110 reada:x=x+a
  15. 120 pokei,a
  16. 130 next
  17. 140 ifx<>31976then print"data error":stop
  18. 150 :
  19. 160 sys 199*256
  20. 170 print"[145]the 128's keypad has been enabled."
  21. 180 print"all keys are active except the 40/80    display key."
  22. 190 print"caps lock: alphabet only in capitals"
  23. 200 print"line feed: ignore line cursor is on"
  24. 210 print"no scroll: freeze all activity"
  25. 215 print"to return to loadstar, enter:"
  26. 216 print"goto loadstar"
  27. 220 poke198,.:mm=1:end
  28. 230 :
  29. 1000 data120,169,21,141,20,3,169,199,141,21,3,141,144,2,169,191,141,143
  30. 1010 data2,88,96,32,234,255,160,0,140,47,208,136,140,0,220,204,1,220
  31. 1020 data208,6,140,47,208,76,52,234,132,203,200,140,141,2,169,251,141,47
  32. 1030 data208,72,162,8,173,1,220,205,1,220,208,248,74,144,14,200,202,208
  33. 1040 data249,56,104,106,141,47,208,176,230,144,214,104,185,231,199,133,203
  34. 1050 data48,18,201,64,144,9,162,1,142,141,2,41,63,133,203,32,72,235,208
  35. 1060 data53,168,201,255,240,21,197,197,240,44,133,197,185,0,199,72,41,127
  36. 1070 data32,53,235,200,104,16,243,48,27,200,173,32,208,72,32,165,199,232
  37. 1080 data208,250,32,165,199,232,240,250,32,165,199,232,208,250,104,141,32
  38. 1090 data208,76,126,234,140,47,208,140,0,220,136,174,1,220,236,1,220,208
  39. 1100 data248,140,47,208,140,0,220,200,238,32,208,96,36,1,112,20,164
  40. 1110 data203,177,245,201,91,176,12,201,65,144,8,173,141,2,9,1,141,141,2,76
  41. 1120 data72,235,65,76,212,69,83,195,72,69,76,208,84,65,194,218,35,44
  42. 1130 data71,7,66,2,255,221,40,43,65,1,19,32,8,224,27,16,228,59,11,24,56
  43. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  44. 60010 ifer<>63thenpoke198,.:end
  45. 60020 sys65418:poke655,72:poke656,235:load"hello connect",8
  46. 60100 poke53280,14:poke53281,14
  47. 60110 print"[147][142][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  48. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  49. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
  50. 60140 fora=217to242:pokea,peek(a)or128:next
  51. 60150 print"         loadstar presents:"
  52. 60160 print"                               "
  53. 60170 print"        64 mode numeric keypad  "
  54. 60180 print"                                "
  55. 60190 print"              by ian adam       "
  56. 60200 print"                                "
  57. 60210 print"             copyright 1987     "
  58. 60220 print"                                "
  59. 60230 print"                                "
  60. 60240 print"       press space to continue."
  61. 60250 a=peek(203):ifa<>60then60250
  62. 60260 return
  63.